home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / I-Info Magazine / (c)i21.d64 / cavern! (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  164 lines
  1. 0 REM"            ANDREW MANIKAS
  2. 1 [143]"
  3. 2 REM"
  4. 3 [143]"----------------------------------------
  5. 4 REM"
  6. 5 [153][199](142);[199](8):[153]"LOAD";:[151]54296,0:[151]53281,5
  7. 6 [153]"SYSLOADING MACHINE LANGUAGE FOR CAVERN!"
  8. 10 [139]([194](53280)[175]15)[179][177]5[167][151]53280,5:[147]"CAVERN.ML",8,1
  9. 11 [151]54295,0:[151]54293,0:[151]54294,0
  10. 12 [151]52095,0:[151]51547,0
  11. 20 [151]53280,0:[151]53281,0:[153]"LOAD";
  12. 21 [151]54273,0:[151]54272,0:[151]54280,0:[151]54279,0:[151]54287,0:[151]54286,0
  13. 22 [151]53269,1:[151]53248,0:[151]53249,0:[151]2040,200:[151]53248[170]39,7
  14. 23 [151]53275,1:[151]53277,0:[151]53276,0:[151]53271,0
  15. 24 [151]53285,14:[151]53286,8:[140]:[129]J[178]200[172]64[164]202[172]64[170]63:[135]A:[151]J,A:[130]
  16. 25 [151]54296,15:[151]54278,15:[151]54278[170]7,12:[151]54278[170]14,9
  17. 26 [151]54277,140:[151]54277[170]7,140:[151]54277[170]14,140
  18. 30 [153]"DEF (null)(null)(null)   (null)(null)(null) CLOSE(null)   (null)CLOSE(null)(null)(null)(null)(null)CLOSE(null)(null)(null)(null) CLOSE(null)   (null)CLOSE(null)(null)"
  19. 31 [153]"SYS(null)   (null) (null)   (null)CLOSE(null)   (null)CLOSE(null)    CLOSE(null)   (null)CLOSE(null)(null)  (null)CLOSE(null)(null)"
  20. 32 [153]"(null)     (null)(null)(null)(null)(null)CLOSE(null)   (null)CLOSE(null)(null)(null)(null) CLOSE(null)(null)(null)(null)(null)CLOSE(null) (null) (null)CLOSE(null)(null)"
  21. 33 [153]"(null)   (null) (null)   (null)CLOSECLOSE(null) (null) CLOSE(null)    CLOSE(null)  (null) CLOSE(null)  (null)(null)CLOSE  "
  22. 34 [153]"CLR (null)(null)(null)  (null)   (null)CLOSE CLOSE(null)  CLOSE(null)(null)(null)(null)(null)CLOSE(null)   (null)CLOSE(null)   (null)CLOSE(null)(null)"
  23. 37 [151]54276,32:[151]54276[170]7,16:[151]54276[170]14,32
  24. 40 [129]J[178]1[164]500:[130]
  25. 50 [153]"";
  26. 60 [153]"DEF(null)STR$RIGHT$RIGHT$CLOSE(null)RIGHT$STR$RIGHT$RIGHT$STR$RIGHT$RIGHT$STR$RIGHT$RIGHT$CLOSE(null)"
  27. 61 [153]"-ASC<LEFT$(null)CHR$LEFT$CLOSELEFT$-ASC(null)-ASCCLOSELEFT$PEEKCHR$"
  28. 62 [153]"(null)CLOSEMID$(null)CLOSEMID$(null)ASC(null)(null)CLOSE(null)(null)ASC(null)MID$>(null)"
  29. 63 [151]54276,33:[151]54273,34:[151]54272,75:[129]P[178]1[164]400:[130]
  30. 70 [153]"LIST         (null)STR$RIGHT$(null)=RIGHT$RIGHT$STR$RIGHT$RIGHT$CLOSE(null)RIGHT$STR$RIGHT$RIGHT$CLOSE(null)"
  31. 71 [153]"         MID$ASCRIGHT$ LEFT$ -ASC LEFT$ CHR$-ASCCLOSELEFT$(null)CHR$"
  32. 72 [153]"         MID$ASC(null) (null) (null)ASC(null)MID$ASC(null)(null)ASC(null)(null)CLOSEMID$"
  33. 73 [151]54283,17:[151]54280,43:[151]54279,52:[129]P[178]1[164]400:[130]
  34. 80 [153]"CONT                  RIGHT$RIGHT$RIGHT$(null)STR$RIGHT$RIGHT$CLOSE(null)(null)=RIGHT$RIGHT$(null)CLOSE(null)STR$RIGHT$(null)STR$RIGHT$"
  35. 81 [153]"                  LEFT$LEFT$LEFT$-ASC<LEFT$(null)CHR$ LEFT$ -(null)CLOSE-ASC<MID$ASCRIGHT$"
  36. 82 [153]"                  (null)CLOSEMID$(null) MID$(null)CLOSEMID$MID$>(null)(null)CLOSE(null)(null) MID$MID$ASC(null)"
  37. 83 [151]54290,33:[151]54287,51:[151]54286,97:[129]P[178]1[164]2500:[130]
  38. 85 [151]54273,0:[151]54280,0:[151]54287,0:[151]54286,0:[151]54279,0:[151]54272,0
  39. 90 [153]"LOAD";[199](14);[199](8)"OPENRIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null)CLOSEASC(null)(null)CLOSE(null)(null)ATN(null)RIGHT$(null)CHR$CLOSELENATN(null)VAL(null)(null)!:":[129]J[178]1[164]40
  40. 95 [151]54276,33:[153]"CLRTAN";:[151]54273,J[172]4:[151]54272,J[172]5:[151]54276,32:[130]
  41. 100 [153]"SYS":[151]54296,0:[153]:[153]"  (null)OVE YOUR SHIP HORIZONTALLY BY PUSHING"
  42. 110 [153]"THE JOYSTICK((null)(null)(null)(null) #2) LEFT OR RIGHT."
  43. 120 [153]:[153]"(null)OUR SHIP WILL AUTOMATICALLY SPEED UP"
  44. 130 [153]"WHILE IT IS IS FLYING DOWN THE CAVERN."
  45. 140 [153]:[153]"(null)HE JOYSTICK BUTTON ACTS AS A PAUSE"
  46. 150 [153]"BUTTON (PUSH FOR (null)(null)...AGAIN FOR (null)ASCASC)."
  47. 160 [153]"(null)OU GET POINTS FOR HOW FAR YOU GO"
  48. 165 [151]54273,0:[151]54272,0:[151]54280,0:[151]54279,0:[151]54287,0:[151]54286,0
  49. 170 [153]"AND FOR YOUR SHIP'S STARTING SPEED."
  50. 171 [151]53248[170]16,0:[151]53248,0
  51. 175 [143] CLASS OF '84
  52. 180 [153]"PRINT(null)HAT IS YOUR SKILL LEVEL(0-9 HARD)?"
  53. 181 [161]T$:[139]T$[179][177]""[167]181
  54. 182 [161]T$:[139]T$[178]""[167]183
  55. 183 [139]T$[178]"0"[176][197](T$)[177]0[167]186
  56. 184 [137]182
  57. 185 [153]:[153]"     (null)(null)VAL(null)(null) MID$(null)(null)(null)(null)RIGHT$LEN(null)CLOSEPEEK(null)(null)(null)(null)(null)CLOSE(null)(null)CLOSE(null)(null)ATN(null).WAITONON":[137]190
  58. 186 SP[178]11[171][197](T$):[151]821,SP[172]23:[153]"OPENATNCTUAL SPEED:";255[171](SP[172]23);"KM/MIN."
  59. 187 [141]1000:[137]185
  60. 190 K[178][194](56320)[175]16:[139]K[178]0[167]190
  61. 200 K[178][194](56320)[175]16:[139]K[178]16[167]200
  62. 210 [153][199](142);[199](8)
  63. 220 [151]646,1:[151]53249,188:[151]53248,176
  64. 230 TI$[178]"000000":[158]49152:[151]53275,1:[151]54294,0:[151]54296,15:[151]53264,0
  65. 231 I[178][194](251)[170]256[172][194](252):[151]I,90:[151]I[170]54313,10:[151]54295,0
  66. 232 [151]I[170]1,64:[151]I[171]1,64:[151]I[170]54273,10:[151]I[170]54271,10:[151]I[171]40,66
  67. 233 [151]I[170]54232,10:[151]I[170]40,66:[151]I[170]54312,10:[151]I[171]39,78:[151]I[170]54233,10
  68. 234 [151]I[171]41,77:[151]I[170]54231,10:[151]I[170]39,78:[151]I[170]41,77:[151]I[170]54311,10
  69. 235 [151]54296,15:[151]54278,1:[151]54277,57:[151]54276,32:[151]54276,33
  70. 236 [151]54285,4:[151]54284,37:[151]54283,16:[151]54283,17:[129]J[178]210[164]30[169][171]8
  71. 237 [151]54273,J:[151]54272,J[173]1.5:[151]54276,33:[151]54280,99[171]J[173]3:[151]54279,99[171]J[173]3
  72. 238 [151]54283,17:[151]I[170]54272,[181]([187](1)[172]15)[170]1:[151]54276,32:[151]54283,16
  73. 239 [130]:[151]I[170]54272,7:[151]54296,0:[151]53248,0
  74. 240 MILE[178]256[172][194](688)[170][194](687):MILE[178]MILE[173]256:TL[178]TI:[153][199](14);[199](8);
  75. 241 [153]"LOADLIST(null)VAL(null)(null)(null)(null)(null)CLOSE(null)ASCCLOSE(null)(null)(null)(null) ASC(null)(null)RIGHT$(null)CHR$:"
  76. 242 [151]54296,15:[129]J[178]1[164]40:[151]54276,32:[151]54273,255[171]J[172]5:[151]54272,J[172]2
  77. 243 [151]54276,33:[153]"TAN";:[130]:[151]54296,0:[151]53248,0
  78. 250 [153]"PRINT(null)OU HAVE GONE A DISTANCE OF";[181](MILE[172]100)[173]100
  79. 260 [153]"(null)ATN(null)RIGHT$(null)RIGHT$(null)VAL(null) IN";TL[173]1000;"ATN(null)(null)-(null)RIGHT$(null)VAL UNITS!"
  80. 265 [153]:[153]"(null)OUR STARTING SPEED WAS";255[171](SP[172]23);"KM/MIN."
  81. 266 [153]"(null)OUR SHIP, BEFORE YOU HIT THE WALLS OF"
  82. 267 [153]"THE WINDING CAVERN, REACHED A SPEED":MI[178]MI[172]256:MI[178]MI[173]100
  83. 268 [153]"OF";255[171][194](821);"KM/MIN."
  84. 270 [153]"(null)HIS GIVES YOU A SCORE OF:";
  85. 280 SC[178](MI[172]21)[173](SP[173]2[170]1):SC[178][181](SC[172][255][174]2)
  86. 290 [153]SC
  87. 300 [153]:[153]:[153]"CONT(null)OULD YOU LIKE TO PLAY AGAIN((null)/(null))?"
  88. 310 [161]T$:[139]T$[179][177]""[167]310
  89. 320 [161]T$:[139]T$[178]""[167]320
  90. 330 [139]T$[178]"Y"[167][153]"LOAD";[199](9);[199](142):[156]:[137]360
  91. 340 [139]T$[179][177]"N"[167]320
  92. 350 [156]:[158] 64738
  93. 360 [153]"LOADSTOPLOAD";[199](34)"CAVERN"[199](34)",8"
  94. 370 [153]"RUN":[151]198,0:[151]198,3:[151]632,13:[151]633,13:[151]634,13:[128]
  95. 400 [131]0,0,0
  96. 401 [131]0,0,0
  97. 402 [131]0,0,0
  98. 403 [131]0,0,0
  99. 404 [131]0,0,0
  100. 405 [131]0,24,0
  101. 406 [131]0,24,0
  102. 407 [131]0,60,0
  103. 408 [131]0,60,0
  104. 409 [131]0,126,0
  105. 410 [131]0,255,0
  106. 411 [131]0,255,0
  107. 412 [131]0,153,0
  108. 413 [131]0,129,0
  109. 414 [131]0,129,0
  110. 415 [131]0,0,0
  111. 416 [131]0,0,0
  112. 417 [131]0,0,0
  113. 418 [131]0,0,0
  114. 419 [131]0,0,0
  115. 420 [131]0,0,0,0
  116. 500 [131]0,0,0
  117. 501 [131]0,0,0
  118. 502 [131]0,0,0
  119. 503 [131]0,0,0
  120. 504 [131]0,0,0
  121. 505 [131]0,3,0
  122. 506 [131]0,6,0
  123. 507 [131]0,30,0
  124. 508 [131]0,62,0
  125. 509 [131]0,254,0
  126. 510 [131]1,254,0
  127. 511 [131]1,126,0
  128. 512 [131]2,108,0
  129. 513 [131]0,8,0
  130. 514 [131]0,16,0
  131. 515 [131]0,0,0
  132. 516 [131]0,0,0
  133. 517 [131]0,0,0
  134. 518 [131]0,0,0
  135. 519 [131]0,0,0
  136. 520 [131]0,0,0,0
  137. 600 [131]0,0,0
  138. 601 [131]0,0,0
  139. 602 [131]0,0,0
  140. 603 [131]0,0,0
  141. 604 [131]0,0,0
  142. 605 [131]0,192,0
  143. 606 [131]0,96,0
  144. 607 [131]0,120,0
  145. 608 [131]0,124,0
  146. 609 [131]0,127,0
  147. 610 [131]0,127,128
  148. 611 [131]0,126,128
  149. 612 [131]0,118,64
  150. 613 [131]0,16,0
  151. 614 [131]0,8,0
  152. 615 [131]0,0,0
  153. 616 [131]0,0,0
  154. 617 [131]0,0,0
  155. 618 [131]0,0,0
  156. 619 [131]0,0,0
  157. 620 [131]0,0,0,0
  158. 1000 [153]:[153]"CONT(null)OULD YOU LIKE BACKGROUND MUSIC((null)/(null))?"
  159. 1010 [161]T$:[139]T$[179][177]""[167]1010
  160. 1020 [161]T$:[139]T$[178]""[167]1020
  161. 1030 [139]T$[178]"Y"[167][151]697,1:[142]
  162. 1040 [151]697,0:[139]T$[179][177]"N"[167]1020
  163. 1050 [142]
  164.